8bitfiles.net/archives/archives.tar/archives/commodore-scene-files/Coverdisks/CS/CSCD039.d81/carcrash - .exe

Commodore BASIC | 2019-04-13 | 1.3 KB | 13 lines

0 FORI=49152TO49264:READQ:POKEI,Q:NEXT:FORI=832TO895:READS:POKEI,S:NEXT:S=54272
1 POKE53281,0:POKE53280,0:PRINT"[147]":GOSUB6:N=200:POKE53279,0:POKE56357,50
2 P=RND(1)*16:POKE646,P:PRINT""SPC(5)"[195]ARCRASH FOR THE [214]ISION [208]ARTY":POKE646,P+1:PRINT""SPC(12)"  [208]RESS [198]IRE":H=53265:T=0:J=PEEK(56320):IF(JAND16)=0THENGOSUB6:POKES+24,15:POKES+7,207:POKES+13,204:GOTO7
5 GOTO2:DATA120,169,47,141,20,3,169,192,141,21,3,169,255,141,21,208,141,28
6 POKEH,T:FORI=0TON:NEXT:POKE53269,0:POKES+24,0:V=53248:RETURN
7 DATA208,141,39,208,169,12,141,38,208,169,11,141,37,208,169,227,141,1:DATA208,141,0,208,169,13,141,248,7,88,96,172,0,216,162,0,189,1:POKE56357,30:DATA216,157,0,216,232,224,39,208,245,238,0,216,140,39,216,173,0,220:POKES+8,1
10 DATA41,4,240,10,173,0,220,41,8,240,16,76,49,234,173,0,208,201:B=218:C=152:DATA70,240,246,206,0,208,76,49,234,173,0,208,201,255,240,233,238,0,208:DATA76,49,234,,1,164,0,2,168,0,242,168,240,242,168,240,246,169,240,242,168
13 DATA240,242,168,240,6,169,0,10,170,0,26,250,64,43,94,128,41,86,128,41,86,128:DATA25,86,64,11,94,0,250,170,240,249,166,240,251,174,240,249,166,240,242,168:PRINT"[147]"SPC(10)"CARCRASH BY BIGUSER":DATA240,242,8,240,:SYS49152:POKE+11,33:A$(1)="[153][169][223]":A$(2)="[169]  [223]":A$(3)="[146][149][170][165]"
16 PRINTCHR$(142):POKEH,27:TI$="000000"
17 A=RND(1)*39:PRINTSPC(A)A$(1)"[157][157][157]"A$(2)"[157][157][157]"A$(3):FORI=0TO3:PRINT"[157][148]":POKEB,C:D=PEEK(53279):IFD=1THEN20
19 NEXT:GOTO17
20 GOSUB6:PRINT"[147][154]"TI$"[153][208]UNKTE":T=27:N=1000:GOSUB6:GOTO1